home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v10n12.arc
/
SUBSCR.WFW
< prev
next >
Wrap
Text File
|
1991-05-30
|
799b
|
22 lines
Sub MAIN
REM All macros must begin with Sub MAIN.
FormatDefineStyles StyleName$()
REM Define a new style based on the current style.
Dim dlg As FormatDefineStylesChar
REM Set the variable "dlg" as the current character style.
GetCurValues dlg
REM Store the current values of "dlg" in DialogRecord.
If SubScript() Then
REM If SubScript is on, then...
FormatCharacter .Points = dlg.Points, .Position = 0
REM Format the currently selected text to be set as defined
REM in "dlg".
Else
REM Otherwise...
FormatCharacter .Points = Val(dlg.Points) - 2, .Position = "-1.5pt"
REM Format the currently selected text to be two points
REM smaller than as defined in "dlg" and positioned 1.5 points
REM below the current baseline.
End If
End Sub